home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 2 / DOS036.dsk / MENU.bas < prev    next >
BASIC Source File  |  2012-02-16  |  3KB  |  126 lines
  1. 10  REM  CATALOG PROGRAM BY
  2. 20  REM  R.J. KEATING.
  3. 30 D$ = ""
  4. 40  DIM A$(40),B$(40)
  5. 50  PRINT D$;"NOMONI,C,O"
  6. 60 XX =  PEEK(760)
  7. 70  IF XX < >201  THEN 90
  8. 80  GOTO 720
  9. 90  POKE 760,201
  10. 100  GR : POKE  -16302,0
  11. 110  COLOR= 0
  12. 120  FOR L = 40 TO 47
  13. 130  HLIN 0,39 AT L
  14. 140  NEXT L
  15. 150 K = 0
  16. 160  GOTO 930
  17. 170  COLOR= C
  18. 180  FOR A = 0 TO 47
  19. 190  HLIN 0,39 AT A
  20. 200  NEXT A
  21. 210  COLOR= 9
  22. 220  PLOT 25,4
  23. 230  HLIN 23,25 AT 5
  24. 240  HLIN 21,25 AT 6
  25. 250  HLIN 20,25 AT 7
  26. 260  HLIN 20,24 AT 8
  27. 270  HLIN 20,22 AT 9
  28. 280  HLIN 20,21 AT 10
  29. 290  PLOT 20,11
  30. 300  HLIN 28 -K,31 -K AT 13
  31. 310  HLIN 11 +K,15 +K AT 14
  32. 320  HLIN 26 -K,33 -K AT 14
  33. 330  HLIN 9 +K,16 +K AT 15
  34. 340  HLIN 24 -K,34 -K AT 15
  35. 350  HLIN 7 +K,18 +K AT 16
  36. 360  HLIN 23 -K,35 -K AT 16
  37. 370  HLIN 6 +K,35 -K AT 17
  38. 380  COLOR= 13
  39. 390  HLIN 5 +K,33 -K AT 18
  40. 400  HLIN 4 +K,31 -K AT 19
  41. 410  HLIN 4 +K,30 -K AT 20
  42. 420  HLIN 3 +K,30 -K AT 21
  43. 430  HLIN 3 +K,29 -K AT 22
  44. 440  COLOR= 14
  45. 450  HLIN 2 +K,29 -K AT 23
  46. 460  HLIN 2 +K,29 -K AT 24
  47. 470  HLIN 2 +K,29 -K AT 25
  48. 480  HLIN 2 +K,29 -K AT 26
  49. 490  HLIN 2 +K,29 -K AT 27
  50. 500  COLOR= 6
  51. 510  HLIN 2 +K,30 -K AT 28
  52. 520  HLIN 2 +K,30 -K AT 29
  53. 530  HLIN 3 +K,31 -K AT 30
  54. 540  HLIN 3 +K,33 -K AT 31
  55. 550  HLIN 3 +K,36 -K AT 32
  56. 560  COLOR= 2
  57. 570  HLIN 4 +K,36 -K AT 33
  58. 580  HLIN 4 +K,36 -K AT 34
  59. 590  HLIN 4 +K,36 -K AT 35
  60. 600  HLIN 5 +K,35 -K AT 36
  61. 610  HLIN 5 +K,35 -K AT 37
  62. 620  COLOR= 3
  63. 630  HLIN 6 +K,35 -K AT 38
  64. 640  HLIN 6 +K,34 -K AT 39
  65. 650  HLIN 7 +K,33 -K AT 40
  66. 660  HLIN 8 +K,19 +K AT 41
  67. 670  HLIN 24 -K,32 -K AT 41
  68. 680  HLIN 9 +K,17 +K AT 42
  69. 690  HLIN 27 -K,30 -K AT 42
  70. 700  HLIN 11 +K,15 +K AT 43
  71. 710  GOSUB 1180
  72. 720  TEXT 
  73. 730  CALL  -936
  74. 740  CALL  -384: PRINT " APPLE USERS CLUB DEMONSTRATION DISK. ":
  75. 745  PRINT " SYDNEY,  AUSTRALIA                   ": CALL  -380
  76. 750  PRINT :D$ = "<CTRL-D>"
  77. 760 D$ = "<CTRL-D>": VTAB 16: PRINT "THE FOLLOWING PROGRAMS ARE ON THIS DISK.": POKE 34,5: CALL  -936
  78. 770 D$ = "<CTRL-D>"
  79. 780 LE = 0
  80. 785 P = 10
  81. 790  PRINT D$;"OPEN CAT,L80"
  82. 800  PRINT D$;"READ CAT,R0": INPUT XS:KK =  -1
  83. 810  FOR I = 0 TO 9
  84. 820  IF I +1 +LE *10 >XS  THEN P = I:I = 9: GOTO 860
  85. 830  PRINT D$;"READ CAT,R";I +1 +LE *10
  86. 840  INPUT A$
  87. 850  PRINT I;" -- ";A$
  88. 860  NEXT I
  89. 870  GOSUB 1030
  90. 880  PRINT D$;"OPEN CAT,L80"
  91. 890  PRINT D$;"READ CAT,R0": INPUT XC
  92. 900  IF 10 *(LE -1) +P +1 > = XS  THEN 780
  93. 910  GOTO 810
  94. 920  GOTO 720
  95. 930 H = 1
  96. 940 J = 16
  97. 950  COLOR= 15: FOR E = 0 TO 47  STEP 16
  98. 960  FOR F = 0 TO 30  STEP 10
  99. 970  FOR G = 0 TO 7: HLIN F,F +4 AT E +G
  100. 980  NEXT G: NEXT F
  101. 990  FOR F = 5 TO 35  STEP 10: FOR G = 0 TO 7
  102. 1000  HLIN F,F +4 AT E +G +8: NEXT G: NEXT F
  103. 1010  NEXT E
  104. 1020 B = 0: GOSUB 1190: GOTO 210
  105. 1030  CALL  -384
  106. 1040  VTAB 21
  107. 1060  PRINT " HIT ANY KEY TO CONTINUE LIST ,    "
  108. 1070  PRINT " OR HIT THE NUMBER OF THE PROGRAM. "
  109. 1080  CALL  -380
  110. 1085  PRINT "HIT 'Q' TO QUIT MENU"
  111. 1090 X =  PEEK( -16384): IF X <127  THEN 1090
  112. 1100  POKE  -16368,0
  113. 1105  IF X = 209  THEN  TEXT : HOME : END 
  114. 1110  IF X <176  OR X >176 +P -1  THEN 1230
  115. 1120  PRINT D$;"OPEN CAT,L80"
  116. 1130 X = X -175: TEXT : CALL  -936:X = X +LE *10
  117. 1140  PRINT D$;"READ CAT,R";X
  118. 1150  INPUT A$: INPUT B$
  119. 1160  PRINT D$;"CLOSE CAT"
  120. 1170  PRINT D$;"RUN ";B$
  121. 1180  FOR Q = 1 TO 1000
  122. 1190  FOR Q = 1 TO 1000: NEXT Q: RETURN 
  123. 1200 D$ = "<CTRL-D>"
  124. 1210  PRINT D$;"RUN CONTROL"
  125. 1220  RETURN 
  126. 1230 LE = LE +1: CALL  -936: RETURN